SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TDFLUJ_PROY_I01]
/*-----------------------------------------------------*/       
/*---Empresa               OFISIS S.A.              --*/       
/*---Cliente               CIA Hitepima                 --*/       
/*---Sistema               Tesoreria                            --*/       
/*---M¢dulo                Empresa                              --*/       
/*---Programa              FLUJO DE CAJA PROY. MENSUAL--*/       
/*---Script                SP_TDFLUJ_PROY_I01.sql       --*/       
/*---Nombre SP             SP_TDFLUJ_PROY_I01           --*/       
/*---Desarrollado por      Carlos Marquez                       --*/       
/*---Fecha Creaci¢n        02/06/2006                           --*/       
/*---Base Datos            SQL SERVER                           --*/       
/*---Versi¢n               2000                                         --*/       
/*---Graba Plantilla Flujo Ejecutado Cabecera y Detalle --*/
/*-----------------------------------------------------*/       
/*-----------------------------------------------------*/       
/*---Modificado 1 por                                                   --*/       
/*---Fecha Modificaci¢n                                                 --*/        
/*---Detalle Modificaci¢n                                               --*/       
/*-------------------------------------------------------*/       
/*-------------------------------------------------------*/       
/*--- Drop Proc SP_TDFLUJ_PROY_I01                                      --*/       
/*--- Grant Execute on SP_TDFLUJ_PROY_I01 to public     --*/        
/*--- SP_TDFLUJ_PROY_I01 '01', 2006, 1                                  --*/       
/*--------------------------------------------------------*/       
@ISCO_EMPR              TD_VC_002,  
@ISCO_USUA_MODI TD_VC_008,
@INNU_ANIO              TD_IN_001,
@INNU_SECU              TD_IN_001,
@IDFE_PROY              TD_DT_001,
@ISCO_MONE              TD_VC_003,
@INFA_TIPO_CAMB         TD_NU_015_006

As       

 Declare  
    @VNNU_SECU TD_IN_001
 Begin Tran SP_TDFLUJ_PROY_I01 
 

        --- Insertamos Cabecera ----
        Insert Into TCFLUJ_PROY
        (CO_EMPR, NU_ANIO, NU_SECU, FE_PROY, CO_MONE, FA_TIPO_CAMB,
        CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)
        Values
        (@ISCO_EMPR, @INNU_ANIO, @INNU_SECU, @IDFE_PROY, @ISCO_MONE, @INFA_TIPO_CAMB,
        @ISCO_USUA_MODI, GetDate(), @ISCO_USUA_MODI, GetDate())
        If @@error <> 0
        Begin
                Rollback tran SP_TDFLUJ_PROY_I01
                Return
        End

        -- Insertamos Detalle       
        Insert Into TDFLUJ_PROY
        (CO_EMPR, NU_ANIO, NU_SECU,
        CO_ARUB, CO_RUBR, CO_CLSU,
        IM_SALD_INIC,
        IM_CALC_ME01, IM_CALC_ME02, IM_CALC_ME03, IM_CALC_ME04,
        IM_CALC_ME05, IM_CALC_ME06, IM_CALC_ME07, IM_CALC_ME08,
        IM_CALC_ME09, IM_CALC_ME10, IM_CALC_ME11, IM_CALC_ME12, CO_MONE, FA_TIPO_CAMB,
        CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)
        (
        Select  CO_EMPR, NU_ANIO, NU_SECU,
        CO_ARUB, CO_RUBR, CO_CLSU,
        IM_SALD_INIC,
        IM_CALC_ME01, IM_CALC_ME02, IM_CALC_ME03, IM_CALC_ME04,
        IM_CALC_ME05, IM_CALC_ME06, IM_CALC_ME07, IM_CALC_ME08,
        IM_CALC_ME09, IM_CALC_ME10, IM_CALC_ME11, IM_CALC_ME12, @ISCO_MONE, @INFA_TIPO_CAMB,
        @ISCO_USUA_MODI, GetDate(), @ISCO_USUA_MODI, GetDate()
        From    #TWFLUJ_PROY
        Where
        CO_EMPR =  @ISCO_EMPR And
        NU_ANIO =  @INNU_ANIO And
        NU_SECU =  @INNU_SECU
        )
        If @@error <> 0
        Begin
                Rollback tran SP_TDFLUJ_PROY_I01
                Return
        End


     
commit tran  SP_TDFLUJ_PROY_I01 
/*------------------------ Fin ------------------------------*/


GO
